home *** CD-ROM | disk | FTP | other *** search
/ Sun Solutions 1997 April to September / Sun Solutions CD - APR '97 - SEP '97 (704-3778-12 Rev. H)(Sun Microsystems, Inc.)(1997).iso / products / bin / httpd / Solaris_2 / AT-fetch.cgi < prev    next >
Text File  |  1997-02-25  |  4KB  |  150 lines
  1. #!/bin/sh
  2. perl=/tmp/httpd/.excite/perl
  3. eval "exec $perl -x $0 $*"
  4. #!perl
  5.  
  6. ##
  7. ## Copyright (c) 1996 Excite, Inc.
  8. ##
  9. ## This CGI script does one of four things depending on the
  10. ## command parameter.  If command is FETCH it finds and returns 
  11. ## the index file specified by the db and ext parameters. If
  12. ## the command is INFO then we return the modification dates
  13. ## and sizes of the index files specified by the db parameter.  
  14. ## If the command is LIST_ALL, it returns a list of the all of
  15. ## the collections at this server. If the command is LIST_PUB,
  16. ## it returns a list of the collections  at this server that 
  17. ## are subscribed to Bullseye notification. If the command is 
  18. ## EMAIL, it returns the e-mail address of the administrator 
  19. ## for that site.
  20. ## 
  21.  
  22.  
  23. BEGIN {
  24.   $root = "/tmp/httpd/.excite";
  25.   die "Invalid root directory '$root'\n" unless -d $root;
  26.   unshift(@INC, "$root/perllib");
  27. }
  28.  
  29. $| = 1;
  30.  
  31. require 'architext.pl';
  32. require 'architextConf.pl';
  33.  
  34. %form = &Architext'readFormArgs;
  35. %attr = &ArchitextConf'readConfig("$root/Architext.conf", $form{'db'});
  36.  
  37. if ($form{'command'} eq "FETCH") 
  38. {
  39.   $thepath = $attr{'CollectionIndex'}.'/'.$form{'db'}.'.'.$form{'ext'};
  40.   open(IDXFILE, "< $thepath") || die "Couldn't open index file $thepath";
  41.  
  42.   print "Content-Transfer-Encoding: binary\n";
  43.   print "Content-Type: application/octet-stream\n\n";
  44.  
  45.   while(<IDXFILE>) {
  46.     print;
  47.   }
  48.   close(IDXFILE);
  49. } 
  50. elsif ($form{'command'} eq "INFO") 
  51. {
  52.  
  53.   @ftypes = ('ptr', 'info', 'sum', 'url.map', 'sum.map', 'url.idx', 'sum.idx', 'key', 'dat');
  54.  
  55.   $head = $attr{'CollectionIndex'}.$form{'db'};
  56.  
  57.   print "Content-Type: text/plain\n\n";
  58.  
  59.   foreach $type (@ftypes) {
  60.     $thepath = $head . '.' . $type;
  61.     if (($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $modtime, $ctime, $blksize, $blocks) = stat("$thepath")) {
  62.       print "$type $size $modtime\n";
  63.     }
  64.   }
  65. }
  66.  
  67. elsif ($form{'command'} eq "LIST_ALL") 
  68. {
  69.   opendir(CONF, "$root/collections");
  70.   @dbconf = grep(/\.conf$/, readdir(CONF));
  71.   closedir CONF;
  72.  
  73.   print "Content-Type: text/plain\n\n";
  74.  
  75.   foreach $collection (@dbconf) {
  76.     $collection =~ s/\.conf$//;
  77.     print "$collection\n";
  78.   }
  79. }
  80.  
  81. elsif ($form{'command'} eq "LIST_PUB") 
  82. {
  83.   opendir(CONF, "$root/collections");
  84.   @pubconf = grep(/\.pub$/, readdir(CONF));
  85.   closedir CONF;
  86.  
  87.   print "Content-Type: text/plain\n\n";
  88.  
  89.   foreach $collection (@pubconf) {
  90.     $collection =~ s/\.pub$//;
  91.     print "$collection\n";
  92.   }
  93. }
  94.  
  95. elsif ($form{'command'} eq "EMAIL") 
  96. {
  97.   $eaddr = $attr{'AdminMail'};
  98.   print "Content-Type: text/plain\n\n";
  99.   print "$eaddr\n";
  100. }
  101.  
  102.  
  103. elsif ($form{'command'} eq "SPIDER") 
  104. {
  105.   ## returns BUILD if we need to build the url.idx url.map sum.idx and sum.map files
  106.   ## returns GOOD if they are already built and up to date
  107.   ## returns PROGRESS if they are being built at the moment
  108.  
  109.   $ans = "BUILD";
  110.   $head = $attr{'CollectionIndex'}.$form{'db'};
  111.   if (-e "$head.progress") {
  112.     ($dm, $dm, $dm, $dm, $dm, $dm, $dm, $dm, $dm, $modtime) = stat("$head.progress");
  113.     if ($modtime > (time - 7200)) {
  114.       $ans = "PROGRESS";
  115.     }
  116.     else {
  117.       unlink "$head.progress";
  118.     }
  119.   }
  120.   if (($ans ne "PROGRESS") && (-e "$head.url.idx")
  121.                            && (-e "$head.url.map")
  122.                            && (-e "$head.sum.idx")
  123.                            && (-e "$head.sum.map")) {
  124.     ($dm, $dm, $dm, $dm, $dm, $dm, $dm, $dm, $dm, $mod) = stat("$head.dat");
  125.     ($dm, $dm, $dm, $dm, $dm, $dm, $dm, $dm, $dm, $t1) = stat("$head.url.idx");
  126.     ($dm, $dm, $dm, $dm, $dm, $dm, $dm, $dm, $dm, $t2) = stat("$head.url.map");
  127.     ($dm, $dm, $dm, $dm, $dm, $dm, $dm, $dm, $dm, $t3) = stat("$head.sum.idx");
  128.     ($dm, $dm, $dm, $dm, $dm, $dm, $dm, $dm, $dm, $t4) = stat("$head.sum.map");
  129.     $ans = "GOOD" if (($t1 > $mod) && ($t2 > $mod) && ($t3 > $mod) && ($t4 > $mod));
  130.   }
  131.  
  132.   print "Content-Type: text/plain\n\n";
  133.   print "$ans\n";
  134.   print "spider-version-1\n";
  135. }
  136.  
  137. else
  138. {
  139.   die "Invalid command";
  140. }
  141.  
  142. ## HACK!!! this keeps the connection open long enough for us 
  143. ## to read the last bytes.
  144. sleep(1);
  145.  
  146. exit(0);
  147.  
  148.  
  149.  
  150.